The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/pc/pb/profile.dir/00014_Script_~go prev bio screen

Text File | 1997-07-29 | 933b | 32 lines

global next_bsub,sub_open
on mousedown
  if the timer > 20 then shift_down_left
end
on mouseup
  if the visible of window "textpop.dir" = true then
    set the visible of window "textpop.dir" to false -- BAR 4.15.97
    set glossontop to false
  end if
  if sub_open = 1 then bio_sub_off
  waitcursor the clickon
  puppettransition 02,2,20, false
  go marker(-1)

  dobiorolls(item 3 of the framelabel)

  --  dobiorolls(the frame - (marker(next_bsub) - 1))

  --  set x = item 3 of next_bsub
  --  set x = integer(x - 1)
  --  put string(x) into item 3 of next_bsub

  --  set dont_do_me to next_bsub
  --  do field next_bsub
  --  set x = item 3 of dont_do_me

  --  set x = integer(x + 1)
  --  put string(x + 1) into item 3 of dont_do_me
  --  set next_bsub to dont_do_me
  set the cursor of sprite the clickon = [the membernum of member "hand", the membernum of member "hand mask"]
end